home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / a3ddem1a / main.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-09-23  |  4.3 KB  |  138 lines
  1. VERSION 5.00
  2. Begin VB.Form MainForm 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   1425
  5.    ClientLeft      =   60
  6.    ClientTop       =   375
  7.    ClientWidth     =   1740
  8.    DrawStyle       =   3  'Dash-Dot
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   1425
  11.    ScaleWidth      =   1740
  12.    StartUpPosition =   3  'Windows Default
  13.    Visible         =   0   'False
  14. Attribute VB_Name = "MainForm"
  15. Attribute VB_GlobalNameSpace = False
  16. Attribute VB_Creatable = False
  17. Attribute VB_PredeclaredId = True
  18. Attribute VB_Exposed = False
  19. '*********************************
  20. '*                               *
  21. '* OOO    OOO   OOO  OOO    OOO  *
  22. '* O  O  O   O O   O O  O  O   O *
  23. '* OOO   O   O O   O O  O  OOOOO *
  24. '* O  O  O   O O   O O  O  O   O *
  25. '* OOO    OOO   OOO  OOO   O   O *
  26. '*                               *
  27. '*********************************
  28. ' 3D Demo
  29. ' September 99
  30. ' Feel free to use this code, just remember to give credit
  31. ' where credit is due.....I would do the same for you.
  32. ' Da Booda
  33. ' Any comments or questions...
  34. ' Email boodaone@aol.com
  35. ' P.S.  Please forgive the roughness of my code, I
  36. ' don't consider myself a professional...and if any one
  37. ' could better this program, feel free and please EMail me
  38. ' the changes.
  39. Private Sub Form_Load()
  40. View.Show
  41. Remote.Show
  42. Sa = 1
  43. TransX = 0: TransY = 0: TransZ = 0
  44. RotX = 0: RotY = 0: RotZ = 0
  45. Zm = 0
  46. VerNum = 25
  47. LineNum = 41
  48. ViewDis = 999
  49. XOrigin = 400
  50. YOrigin = 300
  51. Rem Vertices
  52. Ver(0, 0) = -10: Ver(0, 1) = -10: Ver(0, 2) = -10
  53. Ver(1, 0) = 10: Ver(1, 1) = -10: Ver(1, 2) = -10
  54. Ver(2, 0) = 10: Ver(2, 1) = 10: Ver(2, 2) = -10
  55. Ver(3, 0) = -10: Ver(3, 1) = 10: Ver(3, 2) = -10
  56. Ver(4, 0) = -10: Ver(4, 1) = -10: Ver(4, 2) = 10
  57. Ver(5, 0) = 10: Ver(5, 1) = -10: Ver(5, 2) = 10
  58. Ver(6, 0) = 10: Ver(6, 1) = 10: Ver(6, 2) = 10
  59. Ver(7, 0) = -10: Ver(7, 1) = 10: Ver(7, 2) = 10
  60. Ver(8, 0) = -7: Ver(8, 1) = -7: Ver(8, 2) = -7
  61. Ver(9, 0) = 7: Ver(9, 1) = -7: Ver(9, 2) = -7
  62. Ver(10, 0) = 7: Ver(10, 1) = 7: Ver(10, 2) = -7
  63. Ver(11, 0) = -7: Ver(11, 1) = 7: Ver(11, 2) = -7
  64. Ver(12, 0) = -7: Ver(12, 1) = -7: Ver(12, 2) = 7
  65. Ver(13, 0) = 7: Ver(13, 1) = -7: Ver(13, 2) = 7
  66. Ver(14, 0) = 7: Ver(14, 1) = 7: Ver(14, 2) = 7
  67. Ver(15, 0) = -7: Ver(15, 1) = 7: Ver(15, 2) = 7
  68. Ver(16, 0) = 0: Ver(16, 1) = -10: Ver(16, 2) = 0
  69. Ver(17, 0) = -10: Ver(17, 1) = 0: Ver(17, 2) = 0
  70. Ver(18, 0) = 0: Ver(18, 1) = 0: Ver(18, 2) = -10
  71. Ver(19, 0) = 10: Ver(19, 1) = 0: Ver(19, 2) = 0
  72. Ver(20, 0) = 0: Ver(20, 1) = 0: Ver(20, 2) = 10
  73. Ver(21, 0) = 0: Ver(21, 1) = 10: Ver(21, 2) = 0
  74. Ver(22, 0) = -7: Ver(22, 1) = -7: Ver(22, 2) = 10
  75. Ver(23, 0) = 7: Ver(23, 1) = -7: Ver(23, 2) = 10
  76. Ver(24, 0) = 7: Ver(24, 1) = 7: Ver(24, 2) = 10
  77. Ver(25, 0) = -7: Ver(25, 1) = 7: Ver(25, 2) = 10
  78. Rem Lines
  79. Lin(0, 0) = 0: Lin(0, 1) = 1
  80. Lin(1, 0) = 1: Lin(1, 1) = 2
  81. Lin(2, 0) = 2: Lin(2, 1) = 3
  82. Lin(3, 0) = 3: Lin(3, 1) = 0
  83. Lin(4, 0) = 4: Lin(4, 1) = 5
  84. Lin(5, 0) = 5: Lin(5, 1) = 6
  85. Lin(6, 0) = 6: Lin(6, 1) = 7
  86. Lin(7, 0) = 7: Lin(7, 1) = 4
  87. Lin(8, 0) = 0: Lin(8, 1) = 4
  88. Lin(9, 0) = 1: Lin(9, 1) = 5
  89. Lin(10, 0) = 2: Lin(10, 1) = 6
  90. Lin(11, 0) = 3: Lin(11, 1) = 7
  91. Lin(12, 0) = 8: Lin(12, 1) = 9
  92. Lin(13, 0) = 9: Lin(13, 1) = 10
  93. Lin(14, 0) = 10: Lin(14, 1) = 11
  94. Lin(15, 0) = 11: Lin(15, 1) = 8
  95. Lin(16, 0) = 12: Lin(16, 1) = 13
  96. Lin(17, 0) = 13: Lin(17, 1) = 14
  97. Lin(18, 0) = 14: Lin(18, 1) = 15
  98. Lin(19, 0) = 15: Lin(19, 1) = 12
  99. Lin(20, 0) = 8: Lin(20, 1) = 12
  100. Lin(21, 0) = 9: Lin(21, 1) = 13
  101. Lin(22, 0) = 10: Lin(22, 1) = 14
  102. Lin(23, 0) = 11: Lin(23, 1) = 15
  103. Lin(24, 0) = 16: Lin(24, 1) = 17
  104. Lin(25, 0) = 16: Lin(25, 1) = 18
  105. Lin(26, 0) = 16: Lin(26, 1) = 19
  106. Lin(27, 0) = 16: Lin(27, 1) = 20
  107. Lin(28, 0) = 17: Lin(28, 1) = 18
  108. Lin(29, 0) = 18: Lin(29, 1) = 19
  109. Lin(30, 0) = 19: Lin(30, 1) = 20
  110. Lin(31, 0) = 20: Lin(31, 1) = 17
  111. Lin(32, 0) = 21: Lin(32, 1) = 17
  112. Lin(33, 0) = 21: Lin(33, 1) = 18
  113. Lin(34, 0) = 21: Lin(34, 1) = 19
  114. Lin(35, 0) = 21: Lin(35, 1) = 20
  115. Lin(36, 0) = 22: Lin(36, 1) = 23
  116. Lin(37, 0) = 23: Lin(37, 1) = 24
  117. Lin(38, 0) = 24: Lin(38, 1) = 25
  118. Lin(39, 0) = 25: Lin(39, 1) = 22
  119. Lin(40, 0) = 22: Lin(40, 1) = 24
  120. Lin(41, 0) = 23: Lin(41, 1) = 25
  121. Rem colors
  122. For a = 0 To 11
  123. Lin(a, 2) = 255
  124. Next a
  125. For a = 12 To 23
  126. Lin(a, 3) = 255
  127. Next a
  128. For a = 24 To 35
  129. Lin(a, 4) = 255
  130. Next a
  131. For a = 36 To 41
  132. For b = 2 To 4
  133. Lin(a, b) = 255
  134. Next b, a
  135. Change
  136. Change
  137. End Sub
  138.